home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
PhonepakV2_d1.adf
/
InstallPPak
< prev
next >
Wrap
Text File
|
1993-05-05
|
13KB
|
314 lines
; PhonePak VFX Installation script
; $VER: PhonePak Install 2.0 (05-May-93)
;
; Written for use with Commodore's Installer.
(set phonepak "PhonePak_2.0:")
(set messages1 "Messages1:")
(set messages2 "Messages2:")
(set ppak "PPAK:")
; ====================
; Install the libraries, devices, and other system files...
;
(if (askbool (prompt "Is this an A3000/A3000T?")
(choices "Yes" "No")
(default "No")
(help "The A3000 and A3000T have a design problem which prevents "
"DMA from functioning properly, so a different version of "
"PhonePak.library must be installed. This problem has been "
"corrected in the A4000.\n\n"))
(
(copyfiles (source (tackon phonepak "libs/PPak3000.library"))
(dest "LIBS:")
(confirm)
(newname "PhonePak.library")
(prompt "Shall I install the PhonePak.library into your LIBS: "
"drawer?")
(help "PhonePak.library is a collection of commonly used routines "
"required by the PhonePak VFX software.\n\n"
@copylib-help))
)
(
(copyfiles (source (tackon phonepak "libs/PPak2000.library"))
(dest "LIBS:")
(confirm)
(newname "PhonePak.library")
(prompt "Shall I install the PhonePak.library into your LIBS: "
"drawer?")
(help "PhonePak.library is a collection of commonly used routines "
"required by the PhonePak VFX software.\n\n"
@copylib-help))
))
(copylib (source (tackon phonepak "devs/PhonePak.device"))
(dest "DEVS:")
(confirm)
(prompt "Shall I install the PhonePak.device into your DEVS: drawer?")
(help "PhonePak.device controls the PhonePak VFX hardware\n\n"
@copylib-help))
(copyfiles (source (tackon phonepak "devs/Printers/PPakFax"))
(dest "DEVS:Printers")
(confirm)
(prompt "Shall I install the PPakFax printer driver into your "
"DEVS:Printers drawer?")
(help "The PPakFax printer driver allows you to fax "
"directly from almost any standard Amiga application. To "
"enable this, the printer driver must be placed in the "
"DEVS:Printers drawer.\n\n"
@copylib-help))
(copyfiles (source (tackon phonepak "fonts"))
(dest "FONTS:")
(fonts)
(all)
(confirm)
(prompt "Shall I install the fonts required by PhonePak VFX?")
(help "These fonts are provided for the text to fax conversion "
"performed by the PhonePak VFX software. PhonePak.font is "
"the default font used, and LGMono.font is an alternate "
"fixed width font provided for your convenience.\n\n"
@copyfiles-help))
(copyfiles (source (tackon phonepak "rexx"))
(dest "REXX:")
(all)
(confirm)
(prompt "Shall I install the PhonePak ARexx scripts?")
(help "These scripts provide useful examples of how to interact "
"with LineMan using the ARexx programming language. "
"Message Forwarding uses the Forwarding.ppak script "
"by default.\n\n"
@copyfiles-help))
(set os_ver (/ (getversion) $0000FFFF))
(if (>= os_ver 36)
(
(copyfiles (source (tackon phonepak "Prefs/Presets/PPakFax.pre"))
(dest "SYS:Prefs/Presets")
(confirm)
(prompt "Shall I copy the PPakFax.pre presets file to the "
"SYS:Prefs/Presets drawer?\n\n")
(help "The PPakFax.pre file allows you to quickly set Prefs to "
"use the PPakFax printer driver.\n\n"
@copyfiles-help))
(copylib (source (tackon phonepak "c/SetPatchWTAM"))
(dest "C:")
(confirm)
(prompt "Shall I copy the SetPatchWTAM program to your C: directory?")
(help "The SetPatchWTAM program is a patch supplied by Commodore to "
"fix a problem with font aspect ratios under Workbench 2.0.\n\n"
@copylib-help))
)
)
(copylib (source (tackon phonepak "libs/req.library"))
(dest "LIBS:")
(confirm)
(prompt "Shall I install req.library into your LIBS: drawer?")
(help "req.library provides some of the requesters used by "
"the PhonePak VFX software.\n\n"
@copylib-help))
(if (NOT (exists "S:PhonePak.config"))
(
(copyfiles (source (tackon phonepak "s/PhonePak.config"))
(dest "S:"))
))
; ====================
; All libraries/system files are installed. Now install the software.
;
(set target (tackon @default-dest "PhonePak"))
(if (askbool (prompt "I am going to install the PhonePak VFX software and "
"tools in:\n\n"
target
"\n\n"
"Is this OK?")
(help "If this directory is OK, the directory will be created "
"and the software will be installed.\n\n")
(choices "Yes" "No")
(default "Yes"))
(
(makedir target (infos))
)
(
(set target (askdir (prompt "In which directory should the PhonePak "
"software and tools be installed?")
(help @askdir-help)
(default @default-dest)))
))
(makeassign "PPAK" target)
(copyfiles (source (tackon phonepak "c/LZ"))
(dest "RAM:")
(nogauge))
(working "Decompressing and installing PhonePak...")
(run ("RAM:LZ -N x %s %s" (tackon phonepak "PhonePak.LHA")
ppak))
(working "Decompressing and installing LineMan...")
(run ("RAM:LZ -N x %s %s" (tackon phonepak "LineMan.LHA")
ppak))
(working "Decompressing and installing PPakTools...")
(run ("RAM:LZ -N x %s %s" (tackon phonepak "PPakTools.LHA")
ppak))
; === Copy databases if they don't already exist
(if (NOT (exists (tackon target "AreaCodes.dat")))
(
(copyfiles (source phonepak)
(dest target)
(pattern "AreaCodes.#?"))
))
(if (NOT (exists (tackon target "Demo.dat")))
(
(copyfiles (source phonepak)
(dest target)
(pattern "Demo.#?"))
))
; === Install the 1.3 icons if the OS version is < 36.xx
(if (< os_ver 36)
(
(copyfiles (source (tackon phonepak "1.3_Icons"))
(dest target)
(all)
(infos))
))
; === Install the default system messages from messages disk one
(set master (tackon target "(Master)"))
(if (askbool (prompt "Are you upgrading from a previous version of PhonePak?")
(help "If you are upgrading from a previous version of "
"PhonePak, you must specify the directory where your "
"system messages are located. Only new system "
"messages will be copied.")
(choices "Yes" "No")
(default "No"))
(
(set flag 1)
(set master (askdir (prompt "In which directory should new "
"system messages be installed?")
(help @askdir-help)
(default master)))
)
(
(set flag 0)
(makedir master)
))
(makeassign "SYSMSG" master)
(if flag 0
(
(askdisk (dest "Messages1")
(prompt "Please insert the Messages1 disk in any drive")
(help "The Messages1 disk contains default system messages.\n\n"
@askdisk-help))
(working "Decompressing and installing default system messages...")
(run ("RAM:LZ -m -N x %s %s/" (tackon messages1 "Messages.LHA")master))
)
)
; === Install the default system messages from messages disk two
(askdisk (dest "Messages2")
(prompt "Please insert the Messages2 disk in any drive")
(help "The Messages2 disk contains default system messages.\n\n"
@askdisk-help))
(if flag 0
(run ("RAM:LZ -m -N x %s %s/" (tackon messages2 "AuxMsgs.LHA") master))
)
(run ("RAM:LZ -m -N x %s %s/" (tackon messages2 "Messages2.LHA") master))
(delete "RAM:LZ")
; === Setup the default-dest so the user is informed where PhonePak was installed.
(set @default-dest target)
; === Modify startup sequence.
(if (>= os_ver 36)
(
(onerror (message "Sorry, but either your startup-sequence was missing, "
"or it is too non-standard for the Installer program to "
"understand. You will have to make these modifications "
"by hand.\n\n"
"To patch the 2.0 font aspect ratio bug, add the "
"following line to your S:User-Startup or "
"Startup-Sequence:\n\n"
"SetPatchWTAM >NIL:\n")
(message "To have PPAK: assigned to the directory in which "
"PhonePak is installed, add the following line to your "
"S:User-Startup or Startup-Sequence:\n\n"
("Assign PPAK: %s\n\n" target)
"Note: This assignment is only required for the default "
"system setup.")
(message "To have SYSMSG: assigned to the directory containing "
"your system messages, add the following line to your "
"S:User-Startup or Startup-Sequence:\n\n"
("Assign SYSMSG: %s\n\n" master))
(exit))
(startup "PhonePak VFX"
(prompt "Shall I modify your startup sequence to add the PPAK: "
"and SYSMSG: assigns and to automatically execute SetPatchWTAM?")
(help "This will add the following lines to your S:User-Startup "
"file:\n\n"
"SetPatchWTAM >NIL:\n"
("Assign PPAK: %s\n" target)
("Assign SYSMSG: %s\n\n" master)
"The PPAK: assign is only used by the default system setup. "
"The SYSMSG: assign provides a path to your system "
"messages, making the creation of multiple systems easier.\n\n"
@startup-help)
(command ("SetPatchWTAM >NIL:\n"))
(command ("Assign PPAK: %s\n" target))
(command ("Assign SYSMSG: %s" master)))
)
(
(onerror (message "Sorry, but either your startup-sequence was missing, "
"or it is too non-standard for the Installer program to "
"understand. You will have to make this modification "
"by hand.\n\n"
"To have PPAK: assigned to the directory in which "
"PhonePak is installed, add the following line to your "
"S:User-Startup or Startup-Sequence:\n\n"
("Assign PPAK: %s\n\n" target)
"Note: This assignment is only required for the default "
"system setup.")
(message "To have SYSMSG: assigned to the directory containing "
"your system messages, add the following line to your "
"S:User-Startup or Startup-Sequence:\n\n"
("Assign SYSMSG: %s\n\n" master))
(exit))
(startup "PhonePak VFX"
(prompt "Shall I modify your startup sequence to add the PPAK: and SYSMSG: assigns?")
(help "This will add the following lines to your S:User-Startup file:\n\n"
("Assign PPAK: %s\n" target)
("Assign SYSMSG: %s\n\n" master)
"The PPAK: assign is only used by the default system setup. "
"The SYSMSG: assign provides a path to your system "
"messages, making the creation of multiple systems easier.\n\n"
@startup-help)
(command ("Assign PPAK: %s\n" target))
(command ("Assign SYSMSG: %s" master)))
))